home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
overm82.zip
/
BTBATS.ZIP
/
BINKLEY.BAT
< prev
next >
Wrap
DOS Batch File
|
1990-02-19
|
3KB
|
138 lines
echo off
rem
rem *------------------------------------------------------------*
rem * BinkleyTerm batch file - Invokes Binkley and exists to *
rem * RBBS for a human, or processes mail when received. *
rem *------------------------------------------------------------*
rem
:Start
echo CD
echo ───═══[ Loading the BinkleyTerm Mailer Software ]═══───
echo CD
echo F5 = Rescan Messages
echo F6 = Run RBBS-PC Locally
echo F7 = Renumber Messages
echo F8 = Import/Export Messages
echo F9 = Exit BinkleyTerm to DOS
echo CD
echo Alt-F1 = Invoke the LIST Program
echo Alt-F2 = Invoke the QEDIT Editor
echo CD
echo Alt-X = Exit BinkleyTerm to DOS ( = F9 )
echo Alt-J = Jump to DOS temporarily
echo CD
d:
cd\binkley
rem
rem Use a video FOSSIL for Binkley color
rem
vfos_ibm.com
rem
rem Run BinkleyTerm
rem
bt.exe share
rem
rem BinkleyTerm exited with an errorlevel. See what it is.
rem
rem 90 = F9 pressed. Exit to DOS.
rem 80 = F8 pressed. Run mail utility.
rem 70 = F7 pressed. Run renumber utility.
rem 60 = F6 pressed. Run RBBS locally.
rem 50 = F5 pressed. Rescan messages.
rem 24 = Human at 2400 baud
rem 12 = Human at 1200 baud
rem 3 = Human at 300 baud
rem 1 = Alt-X hit. Exit to DOS.
if errorlevel 90 goto End
if errorlevel 80 goto Mail
if errorlevel 70 goto Renum
if errorlevel 60 goto Local
if errorlevel 50 goto Rescan
if errorlevel 24 goto Caller
if errorlevel 12 goto Caller
if errorlevel 3 goto Caller
if errorlevel 1 goto End
goto End
:Local
echo CD
echo ───═══[ F6 ═ Running RBBS-PC Locally ]═══───
echo CD
rem
rem Start RBBS-PC in the local mode.
rem
vfos_del.com
d:\binkley\spawnbbs.bat local
:Caller
echo CD
echo ───═══[ Running RBBS-PC for a Caller ]═══───
echo CD
rem
rem Starts RBBS-PC by calling another batch file. BBSBATCH invokes
rem SPAWNBBS.BAT, which runs the bulletin board. This is necessary
rem to pass command line parameters from Binkley.
rem
vfos_del.com
d:\binkley\bbsbatch.bat
:Mail
echo CD
echo ───═══[ F8 ═ Processing Fidonet Mail ]═══───
echo CD
rem
rem Run the mail batch file.
rem
vfos_del.com
d:\binkley\mail.bat
:Renum
echo CD
echo ───═══[ F7 ═ Renumbering/Packing Messages ]═══───
echo CD
rem
rem Run the mail batch file to renumber messages.
rem
vfos_del.com
d:\binkley\mail.bat renum
:Rescan
echo CD
echo ───═══[ F5 ═ Rescanning Messages ]═══───
echo CD
rem
rem The mail batch file ignores the two dummy parameters, and
rem /rescan is passed to R2FC.
rem
vfos_del.com
d:\binkley\mail.bat dummy1 dummy2 /rescan
:End
vfos_del.com